home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / fractal berge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  368 b   |  11 lines
  1. 5 D 1,0:D 0,0:D 7,10,9:xm=105:ym=105
  2. 6 xc=.77:yc=.6:t=22:s=40
  3. 7 xl=-1.4:xr=1.4:yo=-.9:yu=1.2
  4. 8 dx=(xr-xl)/xm:dy=(yu-yo)/ym
  5. 9 forn=0toym:y1=yo+n*dy:form=0toxm:x=xl+m*dx:y=y1:k=0
  6. 10 x2=x*x:y2=y*y:y=2*x*y-yc:x=x2-y2-xc:k=k+1:if(k<t)and(x2+y2<s)then10
  7. 11 u=m+53-n/2:u1=u+1:v=n+80:v1=v-3*(k-1)
  8. 12 D u,v,u,v1,3:D u1,v,u1,v1,2:D u,v1,u1,v1,1
  9. 13 next:next
  10. 14 wait 198,255
  11.